# you have to have apiKey to execute these examples
library(scales)
library(ggplot2)
prognoza <- getWeatherForecast(apiKey, city='Warsaw')
ggplot(prognoza$by.hour, aes(y=temperatureCelsius, x=time)) +
geom_line() + geom_point() +
geom_point(data=prognoza$now, size=10, color='red') +
theme(title=element_text(size=20),
axis.text=element_text(size=20)) +
scale_x_datetime(breaks = date_breaks("3 hour"),
minor_breaks = date_breaks("1 hour"),
labels = date_format(" ylab("") + xlab("") + ggtitle("Prognoza temperatury dla Warszawy")Run the code above in your browser using DataLab